www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Admin_GuestBookEdit.asp
<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="FCKeditor/fckeditor.asp" -->
<!--#include file="Function/Function_Job.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="copyright" content="Copyright 2008 dananshan.com" />
<meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" />
<meta name="Keywords" content="闪电文章管理系统文章管理系统" />
<meta name="Description" content="闪电文章管理系统文章管理系统" />
<title>编辑留言信息</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<script src="../js/check.js" type="text/javascript"></script>
</head>
<body>
<%
'========判断是否具有管理权限
if Instr(session("AdminPower"),"|71,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
else
if Request.QueryString ("Action")="update" then
Call update_colume()
else
call Edit_Content()
end if
end if
%>
</body>
</html>
<%
Function Edit_Content()
ID=trim(request("ID"))
if ID<>"" and IsNumeric(ID) then
sql="select * from Idea_GuestBook where ID="&ID
set rs=idea.exec(sql,1)
response.Write "<form method='post' action='?Action=update&ID="&ID&"'>"
response.Write "<div id='frame_Toolbar' class='toolbarBg'>"
response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>"
response.Write "<div id='guide' class='light_orange'>请编辑留言信息！</div>"
response.Write "<div class='pageInfo right light_gray'></div>"
response.Write "</div>"
response.Write "<table class='cTable_2 table'>"
response.Write "<tr class='cTitle toolbarBg'>"
response.Write "<td width='15%'><div>编辑留言</div></td>"
response.Write "<td width='85%'> </td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>留言者：</td>"
response.Write "<td>"
response.Write "<input name='LinkName' type='text' size='30' value='"&rs("LinkName")&"'/></td></tr>"
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>留言标题：</td>"
response.Write "<td>"
response.Write "<input name='MesTitle' type='text' size='30' value='"&rs("MesTitle")&"'/></td></tr>"
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>留言内容：</td>"
response.Write "<td><textarea name='Content' cols='50' rows='10' size='50'>"&rs("Content")&"</textarea></td></tr>"
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>是否审核：</td>"
response.Write "<td>"
if rs("IsShow") then
response.Write "<input name='IsShow' type='checkbox' value='checkbox' checked='checked' />审核</td></tr>"
else
response.Write "<input name='IsShow' type='checkbox' value='checkbox' />审核</td></tr>"
end if
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>回复内容：</td>"
response.Write "<td><textarea name='ReplyContent' cols='50' rows='10' size='50'>"&rs("ReplyContent")&"</textarea></td></tr>"
response.Write "</table>"
response.Write "<div id='cEndToolbar' class='toolbarBg'>"
response.Write "<div style='margin-left:34%;margin-top:5px;'>"
response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' value='确认更新' class='button' /> "
response.Write "<input type='reset' name='Button_View' value='清空重填' id='Button_View' class='button' />"
response.Write "</div>"
response.Write "</div>"
response.Write "</form>"
rs.close
set rs=nothing
end if
End Function
Sub update_colume
ID=trim(request("ID"))
if ID<>"" and IsNumeric(ID) then
ReplyContent=trim(request("ReplyContent"))
ReplyTime=now()
if(trim(request("IsShow"))<>"") then
IsShow=1
else
IsShow=0
end if
sql="update Idea_GuestBook set ReplyContent='"&ReplyContent&"',ReplyTime='"&ReplyTime&"',IsShow='"&IsShow&"' where ID="&ID&""
Call idea.exec("",-1)
set rs = server.createobject("adodb.recordset")
conn.execute(sql)
set rs=nothing
response.write "<script language=javascript>alert('留言回复成功');location.href='Admin_GuestBook.asp';</script>"
end if
End Sub
%>